﻿Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> Public Class AreaCircSources
    Implements ICloneable

    Private m_AreaCircSource(-1) As AreaCircSource '近圆形面源数组
    Private m_nStack As Integer = 0 '污染源编号，污染源编号只增加，不减少以避免重复。
    ''' <summary>
    ''' 污染源编号
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property nStack() As Integer
        Get
            Return Me.m_nStack
        End Get
        Set(ByVal value As Integer)
            Me.m_nStack = value
        End Set
    End Property
    ''' <summary>
    ''' 近圆形面源数组
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property AreaCircSource() As AreaCircSource()
        Get
            Return Me.m_AreaCircSource
        End Get
        Set(ByVal value As AreaCircSource())
            Me.m_AreaCircSource = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New AreaCircSources
        ReDim obj.m_AreaCircSource(Me.m_AreaCircSource.Length - 1) '近圆形面源数组
        For i As Integer = 0 To Me.AreaCircSource.Length - 1
            obj.m_AreaCircSource(i) = Me.m_AreaCircSource(i).Clone
        Next
        obj.m_nStack = Me.m_nStack  '污染源编号，污染源编号只增加，不减少以避免重复。
        Return obj
    End Function
End Class
